home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
basicwnt.zip
/
STRING.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-02-11
|
293b
|
11 lines
0 rem *
1 rem *
2 rem *STRING_TEST_FOR_NITROUSBASIC
3 rem *
4 rem *
5 cls
10 A$="....String function test for the Nitrous Basic ANSI interpreter....."
20 for I=1 to len (A$)*2 :for Y=0 to 20 :cursor (0 ,Y):print A$:next Y
30 L$=left$ (A$,1 ):A$=right$ (A$,len (A$)-1 )+L$
40 next I